home *** CD-ROM | disk | FTP | other *** search
/ Garbo / Garbo.cdr / mac / hypercrd / xcmd / sprtxtrn.sea / Support Tools eXternals 1.2.5 / card_34228.txt < prev    next >
Text File  |  1990-11-13  |  2KB  |  78 lines
  1. -- card: 34228 from stack: in.5
  2. -- bmap block id: 7414
  3. -- flags: 0000
  4. -- background id: 3858
  5. -- name: ApplicationList
  6. ----- HyperTalk script -----
  7. on CloseCard
  8.   put empty into cd fld "App list"
  9.   set the scroll of cd fld "App list" to 0
  10.   pass closeCard
  11. end CloseCard
  12.  
  13. on HideObjects
  14.   hide cd fld "App list"
  15.   hide cd btn "try it!"
  16. end HideObjects
  17.  
  18. on ShowObjects
  19.   show cd fld "App list"
  20.   show cd btn "try it!"
  21. end ShowObjects
  22.  
  23.  
  24. -- part 1 (field)
  25. -- low flags: 00
  26. -- high flags: 0007
  27. -- rect: left=19 top=117 right=288 bottom=236
  28. -- title width / last selected line: 0
  29. -- icon id / first selected line: 0 / 0
  30. -- text alignment: 0
  31. -- font id: 4
  32. -- text size: 9
  33. -- style flags: 0
  34. -- line height: 12
  35. -- part name: App list
  36.  
  37.  
  38. -- part 2 (button)
  39. -- low flags: 00
  40. -- high flags: A002
  41. -- rect: left=82 top=292 right=326 bottom=175
  42. -- title width / last selected line: 0
  43. -- icon id / first selected line: 0 / 0
  44. -- text alignment: 1
  45. -- font id: 0
  46. -- text size: 12
  47. -- style flags: 8192
  48. -- line height: 16
  49. -- part name: Try It!
  50. ----- HyperTalk script -----
  51. on mouseUp
  52.   global errGlobal
  53.   put ApplicationList("noDialog:errGlobal") into appInfo
  54.   if errGlobal Γëá empty then
  55.     answer "Error: ΓÇ£" & errGlobal & "ΓÇ¥"
  56.     put empty into errGlobal
  57.   else
  58.     put appInfo into cd fld "App list"
  59.   end if
  60. end mouseUp
  61.  
  62.  
  63.  
  64.  
  65. -- part contents for background part 38
  66. ----- text -----
  67. 2/50
  68.  
  69. -- part contents for background part 20
  70. ----- text -----
  71.      An XFCN which returns a list of all programs running under MultiFinder, their partition sizes, and application signatures (creators).  This list can include applications,  Finder, and so called "faceless background processes" such as Backgrounder and DA Handler.  Under mono Finder the XFCN will return an error message. 
  72.      The list returned is carraige return delimited, each line contains the application/process name, a space, the actual partition size in bytes (always the second to last word on the line), a space, and the four character file type string (always the last word on the line).   We decided to format the XFCN's result with spaces rather than commas because Macintosh file names may contain commas. 
  73.      The partition size number seems to have 16 bytes more than the number reported in the "About Finder" dialog ie: 
  74.  (number reported by XFCN - 16) div 1024 = number reported in "About Finder".
  75.  
  76.      Calling syntax : ApplicationList(┬½"noDialog:"errorGlobal┬╗)
  77.  
  78.